

   10 CLEAR:INK 0:PAPER 7:BORDER 7:CLS:PRINT "{INK 7}{U}"
   20 IF SCREEN$(0,0)="U" THEN GO TO 70:REM IF 48K, LOAD AND RUN

   30 REM Case 128k mode.
   40 CLS:BEEP .1,20:BEEP .1,20:BEEP .1,20:PRINT "{FLASH 1}PARA LA CINTA {FLASH 0}"';""';"ZXNAKE 2  (2025, ZXMoe)"'';"Solo para Spectrum 48k."';"1. Reinicia en modo 48 BASIC"';"2. Escribe LOAD"""""';"3. Pulsa ENTER"';"4. Rebobina la cinta"';"5. Presiona PLAY"'';
            
   50 PRINT "{INK 1}"';"{FLASH 1}STOP the tape {FLASH 0}"';""';"ZXNAKE 2 (2025, ZXMoe)"'';"Only for Spectrum 48k."';"1. Reboot in 48 BASIC mode"';"2. Type LOAD"""""';"3. Press ENTER"';"4. Rewind the tape"';"5. Press PLAY on tape"';
   60 GO TO 60


   70 REM IN MODE 48K.
   80 BORDER 0:PAPER 0:INK 0:CLS
   90 CLEAR 62337
  100 POKE 23739,111
  110 LOAD "splash" SCREEN$:LOAD "udg" CODE 63658:LOAD "cset1" CODE 62890:LOAD "cset2" CODE 62338:
  130 IF INKEY$<>"" THEN GO TO 130
  140 LOAD "zxnake2"

